home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Flea.dxr / Internal_4_waste cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.0 KB  |  70 lines
  1. property spriteNum, motion, undercard, location
  2. global waste, getlist, equal, currentsel, godlist, foundation, points, tableau, stock
  3.  
  4. on beginSprite me
  5.   waste = new(script("card pile"))
  6.   undercard = sprite(11)
  7.   location = sprite(spriteNum).loc
  8. end
  9.  
  10. on mouseDown me
  11.   if waste.getcardcount() > 0 then
  12.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  13.     sprite(spriteNum).locZ = spriteNum + 1000
  14.     getlist = waste
  15.     if waste.getcardcount() > 1 then
  16.       undercard.member = member(waste.cards[waste.getcardcount() - 1].membername, "playing cards")
  17.     else
  18.       if waste.getcardcount() = 1 then
  19.         undercard.member = member("empty", "playing cards")
  20.       end if
  21.     end if
  22.     motion = timeout(string(spriteNum) && "motion").new(5, #moving, me)
  23.   end if
  24. end
  25.  
  26. on moving me
  27.   if the mouseDown then
  28.     sprite(spriteNum).loc = the mouseLoc
  29.   else
  30.     if the mouseUp then
  31.       sprite(spriteNum).locZ = spriteNum
  32.       motion.forget()
  33.       abort()
  34.     end if
  35.   end if
  36. end
  37.  
  38. on mouseUp me
  39.   if equal then
  40.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  41.     sprite(currentsel).member = member(sprite(spriteNum).member.name, "playing cards")
  42.     godlist.addCard(currentsel)
  43.     sprite(spriteNum).loc = location
  44.     waste.cards.deleteOne(waste.getlastcard())
  45.     if waste.getcardcount() > 0 then
  46.       sprite(spriteNum).member = member(waste.getlastcard().membername, "playing cards")
  47.     else
  48.       if waste.getcardcount() = 0 then
  49.         sprite(spriteNum).member = member("empty", "playing cards")
  50.         undercard.member = member("empty", "playing cards")
  51.       end if
  52.     end if
  53.     equal = 0
  54.     godlist = VOID
  55.     getlist = VOID
  56.     checkwin(currentsel)
  57.     currentsel = 0
  58.     if (waste.cards.count = 0) and (sprite(10).member.name = "replenish") then
  59.       sprite(10).member = member("empty", "playing cards")
  60.     end if
  61.   else
  62.     if not equal then
  63.       puppetSound(3, member("drop card", "100GPak Generic SFX"))
  64.       getlist = VOID
  65.       sprite(spriteNum).loc = location
  66.     end if
  67.   end if
  68.   checkwin()
  69. end
  70.